include io.asm

stack segment stack
	dw 128 dup (?)
stack ends

;;======================================================================
data segment
	Head db "Vasilenko Anatoly. Group 111.$"
	Output0 db " |$"
	Output1 db "  |  0  1  2  3  4  5  6  7  8  9 $"
	Output2 db 33 dup('-'), '$'
data ends
;;======================================================================

code segment 'code'
	assume ss:stack, ds:data, cs:code
start:
	mov ax,data
	mov ds,ax
	lea dx, Head
	outstr
	newline
	newline
	;;------------------------------------------------------------------
		lea dx, Output1;
		outstr;
		newline;		
		lea dx, Output2;
		outstr;
		newline;
		
		mov bx, 0;
		L1:	outword bx
			lea dx, Output0;
			outstr;
			mov cl, 0;
			
			L2:	mov al, bl;
				mul cl;
				outint ax, 3;
				inc cl;
				cmp cl, 10;
			jb L2;
			
			newline;
			inc bl;
			cmp bl, 10;
		jb L1;

	;;------------------------------------------------------------------

the_end:
	newline;
	newline;
	mov ah,8
	int 21h
    finish
code ends

;;======================================================================
end start 

;;======================================================================
